home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / smooth scroll2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  308b  |  14 lines
  1. 100 REM SMOOTH SCROLL DEMO 2
  2. 110 REM
  3. 120 REM COURBOIS SOFTWARE
  4. 130 REM
  5. 140 POKE53270,PEEK(53270)AND247            :REM NAAR 24 REGELMODE
  6. 150 PRINT"[147]";
  7. 160 POKE53270,(PEEK(53270)AND248)          :REM POSITIE 1E SCROLL
  8. 170 PRINT"[157][148]>";
  9. 180 FORDP=1TO7
  10. 190 POKE53270,(PEEK(53270)AND248)+DP       :REM VOLGENDE POSITIE
  11. 200 FORX=1TO50:NEXT
  12. 210 NEXTDP
  13. 220 GOTO160
  14.